#!/usr/bin/perl
# stop ups service

require './ups-lib.pl';

&header();

print "TEST the upsmon program";

print "<hr>";


#$re = `testmon 2>&1`;
$re = `startupsmon 2>&1`;
#open(RES,"/usr/bin/upsmon|");
#$re = <RES>;

print "result is:",$re;

print "<hr>";

&footer();
